home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / utilities / comsuite 95 / COMMSUIT / PRN2WNFX.SM_ / PRN2WNFX.SM
Encoding:
INI File  |  1995-10-18  |  20.7 KB  |  1,042 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     WINFAX
  13. [port]
  14.     FaxModem
  15. [lang]
  16.     1
  17. [desc]
  18.     Print current document to Delrina WinFax PRO.
  19.     
  20.     
  21.     
  22.     
  23.     765606591
  24.     23
  25.     761384087
  26.     193
  27.     2
  28.     0
  29.     0
  30.     0
  31.     0
  32.     Delrina WinFax PRO
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Arial
  60.         180
  61.         0
  62.         16384
  63.     [algn]
  64.         1
  65.         2
  66.         215
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         272
  72.         2
  73.         0
  74.         0
  75.         2
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         2
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         2
  96.         1
  97.         0
  98.         16
  99.         0
  100.         0
  101.     [nfmt]
  102.         16
  103.         3
  104.         2
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [tag]
  112.     Body Single
  113.     3
  114.     [fnt]
  115.         Times New Roman
  116.         180
  117.         0
  118.         49152
  119.     [algn]
  120.         1
  121.         2
  122.         0
  123.         0
  124.         0
  125.     [spc]
  126.         33
  127.         272
  128.         2
  129.         0
  130.         0
  131.         2
  132.         100
  133.     [brk]
  134.         4
  135.     [line]
  136.         8
  137.         0
  138.         2
  139.         0
  140.         1
  141.         1
  142.         1
  143.         10
  144.         10
  145.         1
  146.     [spec]
  147.         0
  148.         0
  149.         
  150.         0
  151.         2
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         16
  159.         3
  160.         2
  161.         .
  162.         ,
  163.         $
  164.     Body Single
  165.     0
  166.     0
  167. [tag]
  168.     Function
  169.     4
  170.     [fnt]
  171.         Arial
  172.         240
  173.         0
  174.         16385
  175.     [algn]
  176.         1
  177.         2
  178.         0
  179.         0
  180.         0
  181.     [spc]
  182.         33
  183.         272
  184.         2
  185.         0
  186.         0
  187.         2
  188.         100
  189.     [brk]
  190.         68
  191.     [line]
  192.         8
  193.         0
  194.         2
  195.         0
  196.         1
  197.         1
  198.         1
  199.         10
  200.         10
  201.         1
  202.     [spec]
  203.         0
  204.         1
  205.         
  206.         0
  207.         2
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         16
  215.         3
  216.         2
  217.         .
  218.         ,
  219.         $
  220.     Body Text
  221.     0
  222.     0
  223. [lay]
  224.     Standard
  225.     513
  226.     [rght]
  227.         15841
  228.         12241
  229.         2
  230.         192
  231.         249
  232.         2
  233.         249
  234.         192
  235.         0
  236.         1
  237.         0
  238.         1
  239.         0
  240.         2
  241.         1
  242.         192
  243.         12049
  244.         12
  245.         1
  246.         720
  247.         1
  248.         1440
  249.         1
  250.         2160
  251.         1
  252.         2880
  253.         1
  254.         3600
  255.         1
  256.         4320
  257.         1
  258.         5040
  259.         1
  260.         5760
  261.         1
  262.         6480
  263.         1
  264.         7200
  265.         1
  266.         7920
  267.         1
  268.         8640
  269.     [hrght]
  270.     [lyfrm]
  271.         1
  272.         11200
  273.         0
  274.         0
  275.         12241
  276.         249
  277.         0
  278.         1
  279.         3
  280.         1 0 0 0 0 0 0
  281.         0
  282.         0
  283.         1
  284.     [frmlay]
  285.         249
  286.         12241
  287.         1
  288.         1440
  289.         0
  290.         2
  291.         192
  292.         1440
  293.         0
  294.         1
  295.         0
  296.         1
  297.         1
  298.         0
  299.         1
  300.         1440
  301.         10800
  302.         1
  303.         3
  304.         9360
  305.     [txt]
  306. >
  307.     [frght]
  308.     [lyfrm]
  309.         1
  310.         13248
  311.         0
  312.         15592
  313.         12241
  314.         15841
  315.         0
  316.         1
  317.         3
  318.         1 0 0 0 0 0 0
  319.         0
  320.         0
  321.         2
  322.     [frmlay]
  323.         15841
  324.         12241
  325.         1
  326.         1440
  327.         119
  328.         2
  329.         15665
  330.         1440
  331.         0
  332.         1
  333.         0
  334.         1
  335.         1
  336.         0
  337.         1
  338.         1440
  339.         10800
  340.         2
  341.         2
  342.         4680
  343.         3
  344.         9360
  345.     [txt]
  346. >
  347. [elay]
  348. [l1]
  349.     0
  350. [edoc]
  351. @Body Single@<-!><:f180,2Times New Roman,0,0,0><-!><-!><-!><-!>//*****************************************************************************
  352.  
  353. @Body Single@<:f180,2Times New Roman,0,0,0>//  PROJECT:    Print current<:f><:f180,2Times New Roman,0,0,0> document Delrina WinFax<:f><:f180,2Times New Roman,0,0,0> PRO
  354.  
  355. @Body Single@<:f180,2Times New Roman,0,0,0>//  TITLE    :    PRN2WNFX.SMM<:f>
  356.  
  357. @Body Single@<:s><:f180,2Times New Roman,0,0,0>//  VERSION:    2<:f><:f180,2Times New Roman,0,0,0>.0
  358.  
  359. @Body Single@<:s><:f180,2Times New Roman,0,0,0>//  AUTHOR:    Delrina Corporation
  360.  
  361. @Body Single@<:s><:f180,2Times New Roman,0,0,0>//  MODIFIED:    April 5, 1994<:f><:f180,2Times New Roman,0,0,0><:f>
  362.  
  363. @Body Single@<:f180,2Times New Roman,0,0,0>//*****************************************************************************
  364.  
  365. @Body Single@<:f180,2Times New Roman,0,0,0>/*
  366.  
  367. @Body Single@<:s><:f180,2Times New Roman,0,0,0>For use with Ami Pro 3.0<:f>
  368.  
  369. @Body Single@<:s>Modifications:
  370.  
  371. @Body Single@   April 5, 1994    - Added a required line to initiate the conversation WinFax after it has been loaded.  (The BWagner  fix.)
  372.  
  373. @Body Single@        - Modified first line in each wfx style search section. (Makes macro a littler smarter.)
  374.  
  375. @Body Single@<:s>        - Lowered the pause time after WinFax is launched.
  376.  
  377. @Body Single@        - If DDE conversation cannot be initiated, then macro will attempt a simple print.
  378.  
  379. @Body Single@<:f180,2Times New Roman,0,0,0> */<:f>
  380.  
  381. @Body Single@<:s><+!><:f200,2Times New Roman,0,0,255>
  382.  
  383. @Function@<:f200,2Times New Roman,0,0,0>FUNCTION WINFAX1()<:f>
  384.  
  385. <:f180,2Times New Roman,>' SingleStep(1)<:f>
  386.  
  387. <:f200,2Times New Roman,0,0,0>DefPrn =GetProfileString$("windows","device")<:f><:f200,2Times New Roman,0,0,0>    <:f200,2Times New Roman,255,0,0>'get 
  388. <:f><:f200,2Times New Roman,255,0,0>default print device prior to WinFax selection<:f>
  389.  
  390. <:f200,2Times New Roman,0,0,0>SavPrn =<:f200,2Times New Roman,0,0,0>(<:f200,2Times New Roman,0,0,0>Right$(DefPrn<:f200,2Times New Roman,0,0,0>,(Len(DefPrn<:f200,2Times New Roman,0,0,0>) - InStr(0,DefPrn<:f200,2Times New Roman,0,0,0>, ",")))<:f200,2Times New Roman,0,0,0>
  391. )<:f200,2Times New Roman,0,0,0>    <:f200,2Times New Roman,255,0,0>'<:f><:f200,2Times New Roman,255,0,0>  eg.  hppcl5a,LPT1:
  392.  
  393. <:f200,2Times New Roman,0,0,0>RepPrn =Strcat$(CHR$(<:f200,2Times New Roman,0,0,0>34),<:f200,2Times New Roman,0,0,0>Left$(SavPrn<:f200,2Times New Roman,0,0,0>,(InStr(0,SavPrn<:f200,2Times New Roman,0,0,0>, ","))<:f200,2Times New Roman,0,0,0> - 1),CHR$(34),CH
  394. R$(44),CHR$(34),<:f200,2Times New Roman,0,0,0>Right$(SavPrn<:f200,2Times New Roman,0,0,0>,(Len(SavPrn<:f200,2Times New Roman,0,0,0>) - InStr(0,SavPrn<:f200,2Times New Roman,0,0,0>, ",")))<:f200,2Times New Roman,0,0,0>,CHR$(34))<:f><:f200,2Times New Roman,0,0,0>
  395.     <:f200,2Times New Roman,255,0,0>'(<+">above<-">) RepPrn reformats SavPrn 
  396. <:f><:f200,2Times New Roman,255,0,0>  eg. "hppcl5a","LPT1"
  397.  
  398. <+@><:S+-1><:f200,2Times New Roman,0,0,0>FaxDevice =GetProfileString$("devices", "WINFAX",)    <:f200,2Times New Roman,255,0,0>'Get WinFax assignment from 
  399. <:f><:f200,2Times New Roman,255,0,0> Win.ini<:f><:f200,2Times New Roman,255,0,0>.  eg. WINFAX,COM2:
  400.  
  401. <+@><:S+-1><:f200,2Times New Roman,0,0,0>PrintSetup("WINFAX" ,<:f200,2Times New Roman,0,0,0>(<:f200,2Times New Roman,0,0,0>Right$(FaxDevice,(Len(FaxDevice) - InStr(0,FaxDevice, ",")))<:f200,2Times New Roman,0,0,0>)<:f200,2Times New Roman,0,0,0> )<:f200,2Times New Roman,0,0,0>
  402.     <:f200,2Times New Roman,255,0,0>'Format for<:f><:f200,2Times New Roman,255,0,0> PrintSetup<:f><:f200,2Times New Roman,255,0,0> eg. "WINFAX","COM2"
  403.  
  404. <+@><:s><:S+-1><:f200,2Times New Roman,255,0,0>
  405.  
  406. <:s><:S+-1><:f200,2Times New Roman,255,0,0>' Find the Fax Number<:f>
  407.  
  408. <:f200,2Times New Roman,>Type( "<[>CTRLHome]" )<:f>
  409.  
  410. <:f200,2Times New Roman,>retcode = Replace(0, 0, 2<:f><:f200,2Times New Roman,>, "wfxFaxNum<:f><:f200,2Times New Roman,>", "")<:f>
  411.  
  412. <:f200,2Times New Roman,>If retcode = 1
  413.  
  414. <:f200,2Times New Roman,>    If Curshade$() != ""<:f>
  415.  
  416. <:f200,2Times New Roman,>        StatusBarMsg("WinFax<:f><:f200,2Times New Roman,> DDE style keys found.")<:f>
  417.  
  418. <:f200,2Times New Roman,>        <:f><:f180,2Times New Roman,>faxnum = Strcat$(Chr$(34),<:f180,2Times New Roman,>CurShade$()<:f180,2Times New Roman,>,Chr$(34)<:f><:f180,2Times New Roman,>)<:f>
  419.  
  420.         <:f200,2Times New Roman,>Type( "<[>CTRLHome]" )<:f>
  421.  
  422. <:S+-1><:f180,2Times New Roman,>        FaxApp$ = <:f180,2Times New Roman,>Strcat$<:f180,2Times New Roman,>(<:f180,2Times New Roman,>GetProfileString$("WinFax<:f180,2Times New Roman,>", "ExePath<:f><:f180,2Times New Roman,>"<:f180,2Times New Roman,>),<:f><:f180,2Times New Roman,>
  423. "Faxmng.exe<:f><:f180,2Times New Roman,> -q<:f><:f180,2Times New Roman,>")<:f>
  424.  
  425. <:S+-1><:f180,2Times New Roman,>        <:f><:f180,2Times New Roman,>Id2 = DDEInitiate("FAXMNG", "TRANSMIT<:f180,2Times New Roman,>")<:f>
  426.  
  427. <:f200,2Times New Roman,>        StatusBarMsg("<:f><:f200,2Times New Roman,>")<:f>
  428.  
  429. <:f180,2Times New Roman,>        <:f200,2Times New Roman,>IF Id2 = 0
  430.  
  431. <:f200,2Times New Roman,>            StatusBarMsg("Loading Delrina WinFax<:f><:f200,2Times New Roman,>...")
  432.  
  433. <:f200,2Times New Roman,255,0,0>        <:f200,2Times New Roman,>    Exec(FaxApp$<:f><:f200,2Times New Roman,>, 7<:f><:f200,2Times New Roman,><:f><:f200,2Times New Roman,>)
  434.  
  435. <:f180,2Times New Roman,>            Pause(03<:f><:f180,2Times New Roman,><:f><:f180,2Times New Roman,>0)
  436.  
  437. <:f200,2Times New Roman,>            StatusBarMsg("<:f><:f200,2Times New Roman,>")<:f>
  438.  
  439.             <:f180,2Times New Roman,><:f><:f180,2Times New Roman,><:f180,2Times New Roman,>FOR I = 1 to 10<:f>
  440.  
  441. <:f180,2Times New Roman,>            Id2 = DDEInitiate("FAXMNG", "TRANSMIT<:f180,2Times New Roman,>")<:f>
  442.  
  443. <:f180,2Times New Roman,><:f180,2Times New Roman,>            IF Id2<:f><:f180,2Times New Roman,> <;> 0
  444.  
  445. <:f180,2Times New Roman,>                ok<:f><:f180,2Times New Roman,> = TRUE
  446.  
  447. <:f180,2Times New Roman,>                BREAK
  448.  
  449. <:f180,2Times New Roman,>            ENDIF
  450.  
  451. <:f180,2Times New Roman,>            NEXT
  452.  
  453. <:f180,2Times New Roman,>            IF not ok<:f>
  454.  
  455. <:f180,2Times New Roman,>                Message("Could not initiate a conversation with WinFax!")
  456.  
  457. <:f180,2Times New Roman,>                Goto doprint<:f><:f180,2Times New Roman,>        <:f180,2Times New Roman,255,0,0>' If we can't load WinFax then just print<:f><:f180,2Times New Roman,255,0,0>.
  458.  
  459. <:f180,2Times New Roman,>            ENDIF<:f><:f180,2Times New Roman,>
  460.  
  461. <:f180,2Times New Roman,>        ENDIF<:f>
  462.  
  463. <:f200,2Times New Roman,>    EndIf
  464.  
  465. <:s><:f200,2Times New Roman,>Else
  466.  
  467. <:f200,2Times New Roman,0,0,0>    <:f><:f180,2Times New Roman,>Goto doprint<:f><:f180,2Times New Roman,>    <:f180,2Times New Roman,255,0,0>' If no fax number is found<:f><:f180,2Times New Roman,255,0,0> print document.<:f>
  468.  
  469. <:f180,2Times New Roman,>EndIf
  470.  
  471. <:s><:S+-1><:f180,2Times New Roman,255,0,0>
  472.  
  473. <:s><:S+-1><:f180,2Times New Roman,255,0,0>' find the recipient name<:f>
  474.  
  475. <:f200,2Times New Roman,>recipient =<:f><:f180,2Times New Roman,>  Strcat$(Chr$(34),<:f180,2Times New Roman,>"To Whom it may concern"<:f><:f180,2Times New Roman,>,Chr$(34)<:f><:f180,2Times New Roman,>)<:f>
  476.  
  477. <:f200,2Times New Roman,>retcode = Replace(0, 0, 2<:f><:f200,2Times New Roman,>, "wfxRecipient<:f><:f200,2Times New Roman,>", "")<:f>
  478.  
  479. <:f200,2Times New Roman,>If retcode = 1
  480.  
  481. <:f200,2Times New Roman,>    If Curshade$() != ""<:f>
  482.  
  483. <:f200,2Times New Roman,>    <:f><:f180,2Times New Roman,>    recipient =  Strcat$(<:f><:f180,2Times New Roman,>Chr$(44)<:f><:f180,2Times New Roman,>,Chr$(34),<:f180,2Times New Roman,>CurShade$()<:f180,2Times New Roman,>,Chr$(34)<:f><:f180,2Times New Roman,>)<:f>
  484.  
  485. <:f180,2Times New Roman,>    EndIf
  486.  
  487. <:f200,2Times New Roman,>EndIf<:f>
  488.  
  489. <:s><:f200,2Times New Roman,>Type( "<[>Home]" )
  490.  
  491. <:s>
  492.  
  493. <:s><:f180,2Times New Roman,255,0,0>' Find the fax Time
  494.  
  495. <:f200,2Times New Roman,>ftime = <:f><:f180,2Times New Roman,>Strcat$(Chr$(44),Chr$(34),Chr$(34)<:f><:f180,2Times New Roman,>)
  496.  
  497. <:f200,2Times New Roman,>retcode = Replace(0, 0, 2<:f><:f200,2Times New Roman,>, "wfxTime<:f><:f200,2Times New Roman,>", "")<:f>
  498.  
  499. <:f200,2Times New Roman,>If retcode = 1
  500.  
  501. <:f200,2Times New Roman,>    If Curshade$() != ""<:f>
  502.  
  503. <:f200,2Times New Roman,>        <:f><:f180,2Times New Roman,>ftime<:f><:f180,2Times New Roman,> = Strcat$(<:f><:f180,2Times New Roman,>Chr$(44)<:f><:f180,2Times New Roman,>,<:f><:f180,2Times New Roman,>Chr$(34),<:f180,2Times New Roman,>CurShade$()<:f180,2Times New Roman,>
  504. ,Chr$(34)<:f><:f180,2Times New Roman,>)<:f>
  505.  
  506. <:f180,2Times New Roman,>    EndIf
  507.  
  508. <:f180,2Times New Roman,>EndIf
  509.  
  510. <:s><:f200,2Times New Roman,>Type( "<[>Home]" )<:f>
  511.  
  512. <:s>
  513.  
  514. <:s><:f180,2Times New Roman,255,0,0>' Find the fax Date<:f>
  515.  
  516. <:f200,2Times New Roman,>fdate = <:f><:f180,2Times New Roman,>Strcat$(Chr$(44),Chr$(34),Chr$(34)<:f><:f180,2Times New Roman,>)<:f>
  517.  
  518. <:f200,2Times New Roman,>retcode = Replace(0, 0, 2<:f><:f200,2Times New Roman,>, "wfxDate<:f><:f200,2Times New Roman,>", "")<:f>
  519.  
  520. <:f200,2Times New Roman,>If retcode = 1
  521.  
  522. <:f200,2Times New Roman,>    If CurShade$() != ""<:f>
  523.  
  524. <:f200,2Times New Roman,>        <:f><:f180,2Times New Roman,>fdate<:f><:f180,2Times New Roman,> = Strcat$(<:f><:f180,2Times New Roman,>Chr$(44)<:f><:f180,2Times New Roman,>,<:f><:f180,2Times New Roman,>Chr$(34),<:f180,2Times New Roman,>CurShade$()<:f180,2Times New Roman,>
  525. ,Chr$(34)<:f><:f180,2Times New Roman,>)<:f>
  526.  
  527. <:f200,2Times New Roman,>    EndIf
  528.  
  529. <:f180,2Times New Roman,>EndIf
  530.  
  531. <:s><:f200,2Times New Roman,>Type( "<[>Home]" )<:f>
  532.  
  533. <:s>
  534.  
  535. <:s><:f180,2Times New Roman,255,0,0>' Find the Company Name<:f>
  536.  
  537. <:f200,2Times New Roman,>company = <:f><:f180,2Times New Roman,>Strcat$(<:f><:f180,2Times New Roman,>Chr$(44),<:f><:f180,2Times New Roman,>Chr$(34),Chr$(34)<:f><:f180,2Times New Roman,>)<:f>
  538.  
  539. <:f200,2Times New Roman,>retcode = Replace(0, 0, 2<:f><:f200,2Times New Roman,>, "wfxCompany<:f><:f200,2Times New Roman,>", "")<:f>
  540.  
  541. <:f200,2Times New Roman,>If retcode = 1
  542.  
  543. <:f200,2Times New Roman,>    If CurS<:f><:f200,2Times New Roman,>hade$() != ""<:f>
  544.  
  545. <:f200,2Times New Roman,>        <:f><:f180,2Times New Roman,>company<:f><:f180,2Times New Roman,> = Strcat$(<:f><:f180,2Times New Roman,>Chr$(44),<:f><:f180,2Times New Roman,>Chr$(34),<:f180,2Times New Roman,>CurShade$()<:f180,2Times New Roman,>,Chr$(34)<:f><:f180,2Times New Roman,>
  546. )<:f>
  547.  
  548. <:f180,2Times New Roman,>    EndIf
  549.  
  550. <:f180,2Times New Roman,>EndIf
  551.  
  552. <:s><:f200,2Times New Roman,>Type( "<[>Home]" )<:f>
  553.  
  554. <:s>
  555.  
  556. <:s><:f180,2Times New Roman,255,0,0>' Find the Subject<:f>
  557.  
  558. <:f200,2Times New Roman,>subject = <:f><:f180,2Times New Roman,> <:f><:f180,2Times New Roman,>Strcat$(Chr$(44),Chr$(34),Chr$(34)<:f><:f180,2Times New Roman,>)<:f>
  559.  
  560. <:f200,2Times New Roman,>retcode = Replace(0, 0, 2<:f><:f200,2Times New Roman,>, "wfxSubject<:f><:f200,2Times New Roman,>", "")<:f>
  561.  
  562. <:f200,2Times New Roman,>If retcode = 1
  563.  
  564. <:f200,2Times New Roman,>    <:f><:f180,2Times New Roman,>subject<:f><:f180,2Times New Roman,> =<:f><:f180,2Times New Roman,> Strcat$(<:f><:f180,2Times New Roman,>Chr$(44),<:f><:f180,2Times New Roman,>Chr$(34)<:f><:f180,2Times New Roman,>,<:f180,2Times New Roman,>
  565. CurS<:f><:f180,2Times New Roman,>hade$<:f><:f180,2Times New Roman,>()<:f180,2Times New Roman,>,Chr$(34)<:f><:f180,2Times New Roman,>)<:f>
  566.  
  567. <:f180,2Times New Roman,>EndIf
  568.  
  569. <:s><:f200,2Times New Roman,>Type( "<[>Home]" )<:f>
  570.  
  571. <:s>
  572.  
  573. <:s><:f180,2Times New Roman,255,0,0>' Find the Key<:f><:f180,2Times New Roman,255,0,0>word<:f>
  574.  
  575. <:f200,2Times New Roman,>keyword<:f><:f200,2Times New Roman,> = <:f><:f180,2Times New Roman,>Strcat$(Chr$(44),Chr$(34),Chr$(34)<:f><:f180,2Times New Roman,>)
  576.  
  577. <:f200,2Times New Roman,>retcode = Replace(0, 0, 2<:f><:f200,2Times New Roman,>, "wfxKey<:f><:f200,2Times New Roman,>Word<:f><:f200,2Times New Roman,>", "")<:f>
  578.  
  579. <:f200,2Times New Roman,>If retcode = 1
  580.  
  581. <:f200,2Times New Roman,>    If CurShade$() != ""<:f>
  582.  
  583. <:f200,2Times New Roman,>        <:f><:f180,2Times New Roman,>keyword<:f><:f180,2Times New Roman,> = Strcat$(<:f><:f180,2Times New Roman,>Chr$(44),<:f><:f180,2Times New Roman,>Chr$(34),<:f180,2Times New Roman,>CurS<:f><:f180,2Times New Roman,>hade$()<:f180,2Times New Roman,>
  584. ,Chr$(34)<:f><:f180,2Times New Roman,>)<:f>
  585.  
  586. <:f180,2Times New Roman,>    EndIf
  587.  
  588. <:f180,2Times New Roman,>EndIf
  589.  
  590. <:s><:f200,2Times New Roman,>Type( "<[>Home]" )<:f>
  591.  
  592. <:s>
  593.  
  594. <:s><:f180,2Times New Roman,255,0,0>' Find the Billing Code<:f>
  595.  
  596. <:f200,2Times New Roman,>billcode<:f><:f200,2Times New Roman,> = <:f><:f180,2Times New Roman,>Strcat$(Chr$(44),Chr$(34),Chr$(34)<:f><:f180,2Times New Roman,>)
  597.  
  598. <:f200,2Times New Roman,>retcode = Replace(0, 0, 2<:f><:f200,2Times New Roman,>, "wfxBillCode<:f><:f200,2Times New Roman,>", "")<:f>
  599.  
  600. <:f200,2Times New Roman,>If retcode = 1
  601.  
  602. <:f200,2Times New Roman,>    If Curshade$() != ""<:f>
  603.  
  604. <:f200,2Times New Roman,>        <:f><:f180,2Times New Roman,>billcode<:f><:f180,2Times New Roman,> = Strcat$(<:f><:f180,2Times New Roman,>Chr$(44),<:f><:f180,2Times New Roman,>Chr$(34),<:f180,2Times New Roman,>CurShade$()<:f180,2Times New Roman,>,Chr$(34)<:f><:f180,2Times New Roman,>
  605. )<:f>
  606.  
  607. <:f180,2Times New Roman,>    EndIf
  608.  
  609. <:f180,2Times New Roman,>EndIf
  610.  
  611. <:s><:f200,2Times New Roman,>Type( "<[>Home]" )<:f>
  612.  
  613. <:s>
  614.  
  615. <:f180,2Times New Roman,>Type("<[>Right]")
  616.  
  617. <+@><:s><:S+-1><:f180,2Times New Roman,>
  618.  
  619. <+@><:S+-1><:f180,2Times New Roman,>SendTo = <:f><:f180,2Times New Roman,>Strcat$(<:f><:f180,2Times New Roman,>"recipient",Chr$(40),<:f><:f180,2Times New Roman,>faxnum,<:f><:f180,2Times New Roman,>ftime<:f180,2Times New Roman,>,<:f><:f180,2Times New Roman,>fdate,<:f><:f180,2Times New Roman,>
  620. recipient,company,subject,<:f><:f180,2Times New Roman,>keyword,<:f><:f180,2Times New Roman,>billcode,<:f><:f180,2Times New Roman,>Chr$(41))<:f>
  621.  
  622. <:S+-1><:f180,2Times New Roman,>DDEPoke(Id2, "Sendfax", SendTo)<:f>
  623.  
  624. <:s><:S+-1><:f180,2Times New Roman,>
  625.  
  626. <:s><:S+-1><:f180,2Times New Roman,>mode = 0    <:f180,2Times New Roman,255,0,0>        ' Do not show WinFax Send dialog<:f>
  627.  
  628. <:S+-1><:f180,2Times New Roman,>If <:f><:f180,2Times New Roman,>Decide<:f><:f180,2Times New Roman,>(<:f><:f180,2Times New Roman,>"Display WinFax Send dialog?","Print to Delrina WinFax")<:f>
  629.  
  630. <:s><:S+-1><:f180,2Times New Roman,>    mode = 1    <:f><:f180,2Times New Roman,255,0,0>        ' S<:f><:f180,2Times New Roman,255,0,0>how WinFax Send dialog<:f>
  631.  
  632. <:S+-1><:f180,2Times New Roman,>    showsenddlg = Strcat$("showsendscreen"<:f><:f180,2Times New Roman,>,Chr$(40)<:f><:f180,2Times New Roman,>,Chr$(34),mode,<:f><:f180,2Times New Roman,>Chr$(34)<:f><:f180,2Times New Roman,>,<:f><:f180,2Times New Roman,>Chr$(41)<:f><:f180,2Times New Roman,>
  633. )<:f>
  634.  
  635. <:S+-1><:f180,2Times New Roman,>    DDEPoke(Id2, "Sendfax", <:f><:f180,2Times New Roman,>showsenddlg<:f180,2Times New Roman,>)
  636.  
  637. <:S+-1><:f180,2Times New Roman,>    <:f180,2Times New Roman,>FilePrint(1, 1, 9999, 1537)    <:f180,2Times New Roman,255,0,0>' Do default print, no print dialog<:f>
  638.  
  639. <:S+-1><:f180,2Times New Roman,>    D<:f180,2Times New Roman,>DETerminate(Id2)<:f>
  640.  
  641. <:s><:S+-1><:f180,2Times New Roman,>Else
  642.  
  643. <:S+-1><:f180,2Times New Roman,>    doprint:
  644.  
  645. <+@><:S+-1><:f200,2Times New Roman,0,0,0>    FilePrint    <:f200,2Times New Roman,255,0,0>'Open Print dialog.
  646.  
  647. <:S+-1><:f180,2Times New Roman,>EndIf<:f>
  648.  
  649. <+@><:S+-1><:f200,2Times New Roman,0,0,0>    PrintSetup(RepPrn)    <:f200,2Times New Roman,255,0,0>'Put the focus back on the printer selected before the print to WinFax.  eg. "hppcl5a","LPT1:"<:f>
  650.  
  651. @Function@<:f200,2Times New Roman,0,0,0>END FUNCTION<:f>
  652.  
  653. >
  654.  
  655. [Embedded]
  656. 00017665
  657. >
  658. [macsum] 1
  659. WINFAX1 0 0 21 16
  660. [macse]
  661. 14 WINFAX1
  662. 0 286 "windows" "device"
  663. 13
  664. 8 1
  665. 0 14 "{1}"
  666. 13
  667. 0 808 0 "{1}" ","
  668. 13
  669. 3 1
  670. 0 807 "{1}" [X]
  671. 13
  672. 8 2
  673. 0 39 34
  674. 13
  675. 0 808 0 "{2}" ","
  676. 13
  677. 5 1
  678. 3 1
  679. 0 806 "{2}" [X]
  680. 13
  681. 0 39 34
  682. 13
  683. 0 39 44
  684. 13
  685. 0 39 34
  686. 13
  687. 0 14 "{2}"
  688. 13
  689. 0 808 0 "{2}" ","
  690. 13
  691. 3 1
  692. 0 807 "{2}" [X]
  693. 13
  694. 0 39 34
  695. 13
  696. 0 16 [X] [X] [X] [X] [X] [X] [X]
  697. 13
  698. 8 3
  699. 0 286 "devices" "WINFAX"
  700. 13
  701. 8 4
  702. 0 14 "{4}"
  703. 13
  704. 0 808 0 "{4}" ","
  705. 13
  706. 3 1
  707. 0 807 "{4}" [X]
  708. 13
  709. 2 112 1 "WINFAX" [X]
  710. 0 6 "[16420]"
  711. 2 488 1 0 0 2 "wfxFaxNum" ""
  712. 13
  713. 8 5
  714. 6 5
  715. 5 1
  716. 18 0
  717. 11 00001198
  718. 0 24
  719. 13
  720. 7 ""
  721. 18 1
  722. 11 00001185
  723. 0 789 "WinFax DDE style keys found."
  724. 0 39 34
  725. 13
  726. 0 24
  727. 13
  728. 0 39 34
  729. 13
  730. 0 16 [X] [X] [X]
  731. 13
  732. 8 6
  733. 0 6 "[16420]"
  734. 0 286 "WinFax" "ExePath"
  735. 13
  736. 0 16 [X] "Faxmng.exe -q"
  737. 13
  738. 8 7
  739. 0 8 "FAXMNG" "TRANSMIT"
  740. 13
  741. 8 8
  742. 0 789 ""
  743. 6 8
  744. 5 0
  745. 18 0
  746. 11 00001185
  747. 0 789 "Loading Delrina WinFax..."
  748. 0 22 "{7}" 7
  749. 0 274 030
  750. 0 789 ""
  751. 5 1
  752. 8 9
  753. 5 10
  754. 6 9
  755. 18 2
  756. 12 00000994
  757. 10 00001094
  758. 5 1
  759. 6 9
  760. 3 0
  761. 8 9
  762. 10 00000918
  763. 0 8 "FAXMNG" "TRANSMIT"
  764. 13
  765. 8 8
  766. 6 8
  767. 5 0
  768. 18 3
  769. 11 00001081
  770. 5 1
  771. 8 10
  772. 10 00001094
  773. 10 00000961
  774. 6 10
  775. 1 3
  776. 11 00001185
  777. 0 3 "Could not initiate a conversation with WinFax!"
  778. 10 00003471
  779. 10 00001211
  780. 10 00003471
  781. 0 39 34
  782. 13
  783. 0 39 34
  784. 13
  785. 0 16 [X] "To Whom it may concern" [X]
  786. 13
  787. 8 11
  788. 2 488 1 0 0 2 "wfxRecipient" ""
  789. 13
  790. 8 5
  791. 6 5
  792. 5 1
  793. 18 0
  794. 11 00001473
  795. 0 24
  796. 13
  797. 7 ""
  798. 18 1
  799. 11 00001473
  800. 0 39 44
  801. 13
  802. 0 39 34
  803. 13
  804. 0 24
  805. 13
  806. 0 39 34
  807. 13
  808. 0 16 [X] [X] [X] [X]
  809. 13
  810. 8 11
  811. 0 6 "[36]"
  812. 0 39 44
  813. 13
  814. 0 39 34
  815. 13
  816. 0 39 34
  817. 13
  818. 0 16 [X] [X] [X]
  819. 13
  820. 8 12
  821. 2 488 1 0 0 2 "wfxTime" ""
  822. 13
  823. 8 5
  824. 6 5
  825. 5 1
  826. 18 0
  827. 11 00001734
  828. 0 24
  829. 13
  830. 7 ""
  831. 18 1
  832. 11 00001734
  833. 0 39 44
  834. 13
  835. 0 39 34
  836. 13
  837. 0 24
  838. 13
  839. 0 39 34
  840. 13
  841. 0 16 [X] [X] [X] [X]
  842. 13
  843. 8 12
  844. 0 6 "[36]"
  845. 0 39 44
  846. 13
  847. 0 39 34
  848. 13
  849. 0 39 34
  850. 13
  851. 0 16 [X] [X] [X]
  852. 13
  853. 8 13
  854. 2 488 1 0 0 2 "wfxDate" ""
  855. 13
  856. 8 5
  857. 6 5
  858. 5 1
  859. 18 0
  860. 11 00001995
  861. 0 24
  862. 13
  863. 7 ""
  864. 18 1
  865. 11 00001995
  866. 0 39 44
  867. 13
  868. 0 39 34
  869. 13
  870. 0 24
  871. 13
  872. 0 39 34
  873. 13
  874. 0 16 [X] [X] [X] [X]
  875. 13
  876. 8 13
  877. 0 6 "[36]"
  878. 0 39 44
  879. 13
  880. 0 39 34
  881. 13
  882. 0 39 34
  883. 13
  884. 0 16 [X] [X] [X]
  885. 13
  886. 8 14
  887. 2 488 1 0 0 2 "wfxCompany" ""
  888. 13
  889. 8 5
  890. 6 5
  891. 5 1
  892. 18 0
  893. 11 00002259
  894. 0 24
  895. 13
  896. 7 ""
  897. 18 1
  898. 11 00002259
  899. 0 39 44
  900. 13
  901. 0 39 34
  902. 13
  903. 0 24
  904. 13
  905. 0 39 34
  906. 13
  907. 0 16 [X] [X] [X] [X]
  908. 13
  909. 8 14
  910. 0 6 "[36]"
  911. 0 39 44
  912. 13
  913. 0 39 34
  914. 13
  915. 0 39 34
  916. 13
  917. 0 16 [X] [X] [X]
  918. 13
  919. 8 15
  920. 2 488 1 0 0 2 "wfxSubject" ""
  921. 13
  922. 8 5
  923. 6 5
  924. 5 1
  925. 18 0
  926. 11 00002488
  927. 0 39 44
  928. 13
  929. 0 39 34
  930. 13
  931. 0 24
  932. 13
  933. 0 39 34
  934. 13
  935. 0 16 [X] [X] [X] [X]
  936. 13
  937. 8 15
  938. 0 6 "[36]"
  939. 0 39 44
  940. 13
  941. 0 39 34
  942. 13
  943. 0 39 34
  944. 13
  945. 0 16 [X] [X] [X]
  946. 13
  947. 8 16
  948. 2 488 1 0 0 2 "wfxKeyWord" ""
  949. 13
  950. 8 5
  951. 6 5
  952. 5 1
  953. 18 0
  954. 11 00002752
  955. 0 24
  956. 13
  957. 7 ""
  958. 18 1
  959. 11 00002752
  960. 0 39 44
  961. 13
  962. 0 39 34
  963. 13
  964. 0 24
  965. 13
  966. 0 39 34
  967. 13
  968. 0 16 [X] [X] [X] [X]
  969. 13
  970. 8 16
  971. 0 6 "[36]"
  972. 0 39 44
  973. 13
  974. 0 39 34
  975. 13
  976. 0 39 34
  977. 13
  978. 0 16 [X] [X] [X]
  979. 13
  980. 8 17
  981. 2 488 1 0 0 2 "wfxBillCode" ""
  982. 13
  983. 8 5
  984. 6 5
  985. 5 1
  986. 18 0
  987. 11 00003017
  988. 0 24
  989. 13
  990. 7 ""
  991. 18 1
  992. 11 00003017
  993. 0 39 44
  994. 13
  995. 0 39 34
  996. 13
  997. 0 24
  998. 13
  999. 0 39 34
  1000. 13
  1001. 0 16 [X] [X] [X] [X]
  1002. 13
  1003. 8 17
  1004. 0 6 "[36]"
  1005. 0 6 "[39]"
  1006. 0 39 40
  1007. 13
  1008. 0 39 41
  1009. 13
  1010. 0 16 "recipient" [X] "{6}" "{12}" "{13}" "{11}" "{14}" "{15}" "{16}" "{17}" [X]
  1011. 13
  1012. 8 18
  1013. 0 35 "{8}" "Sendfax" "{18}"
  1014. 5 0
  1015. 8 19
  1016. 0 2 "Display WinFax Send dialog?" "Print to Delrina WinFax"
  1017. 13
  1018. 11 00003471
  1019. 5 1
  1020. 8 19
  1021. 0 39 40
  1022. 13
  1023. 0 39 34
  1024. 13
  1025. 0 39 34
  1026. 13
  1027. 0 39 41
  1028. 13
  1029. 0 16 "showsendscreen" [X] [X] "{19}" [X] [X]
  1030. 13
  1031. 8 20
  1032. 0 35 "{8}" "Sendfax" "{20}"
  1033. 2 111 1 1 1 9999 1537
  1034. 0 9 "{8}"
  1035. 10 00003479
  1036. 24 111
  1037. 2 112 1 "{3}"
  1038. 6 0
  1039. 15
  1040. 9
  1041. 00017690
  1042.